pcworld online logo

Pop-Up menⁿler...

Bildi≡iniz gibi Pop-up menⁿler, WINDOWS 3.1 ile gelen ve baz² programlarda sa≡ fare tu■una bas²ld²≡²nda programla ilgili birtak²m olaylar² gerτekle■tirebilmenize yarayan menⁿlerdir. Bu menⁿler WINDOWS 95 kullananlar²n ise art²k eli aya≡² durumundalar. Visual Basic ile bu menⁿleri yaratmak τok kolay.
Menⁿ edit÷rⁿnⁿ aτ²n ve ■ekildeki gibi ÷zellikler ta■²yan ve ismi "Pano" olan bir menⁿ yarat²n. Menⁿnⁿzⁿ yaratt²ktan sonra edit÷rden τ²kmadan sadece "pano" isimli k²sm² "g÷rⁿnmez" yap²n. Edit÷rden τ²kt²≡²n²zda yaratt²≡²n²z menⁿnⁿn g÷rⁿlmedi≡ini farkedeceksiniz. Form ⁿzerindeki di≡er kontrollleri de yaratt²ktan sonra program²n²z² τal²■t²r²n ve text kutusunun ⁿstⁿne gidip "Sa≡" fare tu■una t²klay²n. Kar■²n²za menⁿ edit÷rⁿyle yaratt²≡²n²z menⁿ bir pop-up menⁿ olarak τ²kacakt²r. Program²n²z τal²■²rken menⁿlerin ayarlar²yla oynayabildi≡inizden pop-up menⁿyⁿ, normal bir menⁿ haline ikinci seτene≡i seτerek d÷nⁿ■tⁿrebilirsiniz.
Private Sub Form_Load()
pano.Visible = False
Option1.Value = True
End Sub

Private Sub Option1_Click()
pano.Visible = False
End Sub

Private Sub Option2_Click()
pano.Visible = True
End Sub

Private Sub tarih_Click()
Text1.Text = Text1.Text & Now
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If pano.Visible = True Then GoTo atla
If Button = 2 Then
PopupMenu pano
End If
atla:
End Sub